Frogrcam Name: 
Frogramer's Names 
Courcet 

Keyed by: 

Date Keyes 

Notes 


David Solly 


David Solly 
Ottawa, 


Program Detailer 
Original Program. 


Ontario, 2 
Uged with McBrine Printer Driver 


(McBrine LLIST) 
Tape Version. 


april i989 


PROGRAM LISTING 


4) REM 
up program (Left margin 10, 
page 54) incorporating custom- 
20 REM 
Ottawa, 
Aw REM 
20 REM Conversions 
40 REM 
UDG-letter to which they are 
A2 REM 


re 


. 
ቅ 
see “past 


Ontario, March 1989, 


scribed in bold-face. 
44 REM 
Chet 128 to ርከዮቹቿቹ 142 are 


to Chr€ 64. In some cases the 

used as a guide. 
ዱሬ REM 

print correctly 
465 REM 

scribed in 


if the printer 


all cases as a 


lowercase 


Full size printer Llisting set 
Line length 64 col., Lines per 
ized McBrine Frinter Driver. 
Program written by David Solly, 


WDG'’s are transcribed by the 
mapped and underscored. 
Inverse characters are tran- 


Sinclair Block Graphics 
represented by Chré 49 through 
context of the listing must be 


The British Found sign will 
ie met to use Uk ASCII. 

The copyright symbol 48 tran- 
EA 


50 REM Load McBrine Priter Driver 


wae CLEAR 64299: 
与 CLS 5 


4CI"CODE 64300 


CLEAR 


FRINT AT 11,258 '"መፒል”ዮፒ tape to load driver": 


LOAD "mbpd 


27 CLS 8 PRINT FLASH 11ልፐ 11,10; "STOP THE TAPE": BEEF 2.59,25 

60 RANDOMIZE USR 64300 

65 CLS 8 PRINT AT 11,6; "Draft or Final Copy? "s: INFUT "Select 
D oc F "sree 

70 IF eee! FP" OR rdXm"£" THEN OUT 127,271: OUT 127,71: PRINT AT 1 


Sall; "Final Copy": FAUSE 200: REM Set printer to double-strike m 
ode 

80 IF r#="D" OR r#e"d" THEN QUT 127,27: OUT 127,72: PRINT AT 1 
wa lil Draft Copy": FAUSE 200: REM Set printer to normal mode 

35 IF rdz"D" OR rgs PF" OR rxXx"d" OR rt="4" THEN GO TO 100 

90 BEEF .5,10% GO TO 65 

95 REM 


100 REM Program Details 
110 DIM n$€(6,40)1 


00 GO SUB windows PRINT 


LET window = 6000 
'''*'"Program Name?" 


2160 INPUT n*(1) 

ee] PRINT ''ስቓ(1)1 "s" "OR?" 

220 PAUSE O: IF INKEYS="¥" DR INKEYdXs"y" THEN GO TO Bao 
240 GO TO 200 

200 GO SUB windows PRINT ''''"Programerm's& Name?" 

$10 INPUT n$02) 

SA0 PRINT ''n€O2»0sg''g "OR?" 

S30 FAUSE o: IF INKEYdXz"Y" OR INKEY#="y" THEN GO TO 400 
240 GO TO =ዕ(ሀ 

400 GO SUB window: PRINT ''''"Gource?" 

410 INFUT n*03) 

420 PRINT ''ስ(2=2)1/' '1 "OR?" 

430 PAUSE O: IF INEEVY#="Y" OR INKEYSXz"y" THEN GO TO 500 
440 GO TO 400 

200 GO SUB windows PRINT ''''"Keyed by?" 

Sio INFUT ጠቓ (ዱን 

ae) PRINT '"ክቓ(ዱ)ነ!1''"ኒ1 "Ok?" 

B20 FAUSE Oo: IF INKEY#="Y" QR INKEY#="y" THEN GO TO 600 
340 GO TO Soo 

6400 GO SUB window: PRINT ''''"Date?" 

610 INFUT ከቓፏ (፳) 

620 PRINT ''ስቅቆ(=ን፤ °°. "OR?" 

630 PAUSE or IF INKEY#="Y" OR INEEY#="y" THEN GO TO 700 
640 GO TO 600 

700 GO SUB windows PRINT ''''"WNotae?! 

710 INFUT m#¢6) 

720 PRINT ''n*€(&0os;s '" "Ok?" 

ZO PAUSE Os: IF INKEYX-z"Y" OR INEEYEXz"y" THEN : GO SUE window: 
PRINT ''''"Frinting!'": GO TO 1000 

740 (50 TO 700 

1000 REM Send Data To Printer 


1010 LFRINT "Frogram Name: "sn$€Cl) 
1020 LPRINT "Frogramer 'ፎ Names "xn C2) 
10:0 LFRINT "Source: በብቻ (2) 
1040 LPRINT "Keyed bys "ark C4) 
1090 LFRINT "Date Keyed: "ene CO) 
1060 LFRINT "Note: "se mk CG) 


1070 LFRINT '''''' 
1080 FOR asl TO Z9: LFRINT " "ss NEXT ል LFRINT "PROGRAM LISTING 


1090 LFRINT ''' 

2000 REM Fetch Program to be Listed 

24010 CLS : PRINT ''''"Name of Program to be LListed? " 

2000 ፲ከዮኒህፐ "Name? “seta FRINT ''2ቓቐ1፤ os "OK?" 

2030 PAUSE Of: IF INKEY#2"¥" OR INEEY£zs"y" THEN GO TO 2050 

2940 GO TO 2000 

2050 GO SUE windows PRINT FLASH LAT 11,9:9"Loading Frogram": LOA 
D z$ 

WOOO REM Initialize & Introduce 

3010 LET window = 6000: GO SUB window 

O15 CLS : FRINT FLASH 1AT 114,301 "STOF THE TAFE": BEEF 2.959,29 
WO20 PRINT PAPER 18 INE 6sAT 2,108 "McBrine Style" 

WOSO PRINT PAPER 1: INE 6g AT 4,6: "BASIC LLIST'ing Set-Up" 

3040 PRINT '''"The object of this program is to llist ase accur 


ately as possible any Sinclair BASIC pro-gram to a full-si 


zed Epson compatible printer and also in- sure that the req 
uired biblio- graphic information is included with the listing. 
S050 PRINT #03" Hit any key "s PAUSE Os GO SUR 
window 

“2060 REM Check the printer 

59070 FRINT '''"Before continuing check the following:" 

5080 PRINT ''"The printer power is on and the printer itself is 
online. The print head is homed to the upper left-hand co 

rner of the page," 

5100 PRINT #0; " Hit any key "s PAUSE ©: GO SUR 
window 


5110 REM Check that the program and program info. is at hand 
S120 PRINT '''"Do you have the following info. handy?" 

i0 FRINT ''"The name of the program to be llisted as saved o 
n the tape?"'"The full program name?" "The programmer's name?!" 
The program keyer’s name?" 

140 PRINT "The date the program was keyed?" "Notes?" 


3150 PRINT #0," Hit any key "s PAUSE O: GO SUE 
window 

JLO PRINT '''"When the program continues you will be prompted 

for the info. you are required ta supply. If you do not hav 
e the info. leave a line of underscores so it may be filled 


in by hand." 

29170 PRINT '"When you are prompted type the name of the program 
to be loadedfrom the tape and hit ENTER," 

17:59 FRINT '"You may find that some tape pro-grams can not be br 


Okan into and a Special stoped version mayhave to be created 
for listing," 

31800 PRINT #0; " Hit any key "* PAUSE O: GO SUB 
window 

2190 FRINT '''"Once the BASIC program has been loaded, LIST the 

program to insure the the program will ligstfrom the beginnin 
g and then typethe command LLIST," 

We PRINT ''"When LLIST' ing has completed use the printer 'ፄ 
form feed command to advance to the next page."''"The main 
program begins upon thenext keypress," 

wee FRINT #0," Hit any key "s PAUSE ዕ GO SUR 
window 


Sgaoo GO TO 1 

5999 STOF 

6000 REM Window Sub-Routine 

6010 BORDER ፲፪ FAFER ሬዘ INE ©: CLS 

GOO RETURN 

8999 STOF 

9000 REM Save Routine 

9010 CLEAR : SAVE "Lister. Bi" LINE 5000: SAVE "mbpd.Ci"CODE 6430 
O,123 

90:20 CLS 8 PRINT AT 11,141 "Verification": VERIFY "Lister. Bi": VE 
RIFY "mbpd.Ci"CODE 


Frogram Name: Frogram Detailer (McBrine LLIST) 
Frrogramerm's Name! David Solly 
SSCL Cee Original Frogram 
keyed bys David Selly 
Date Keyecs: Ottawa, Ontario, 2 April 1989 
Note: Used with McBrine Frinter Driver 
PROGRAM LISTING 

10 REM Full size printer Llisting set- 
up program (Left margin 10, Line length 64 col., Lines per 
page 5S4) incorporating custom ized McBrine Frinter Driver. 

AQ REM Program written by David Selly, 
Ottawa, Ontario, 235 March 1989, 

au REM 

40 REM Conversions 

40 REM ሀጋሙ '% are transcribed by the 
UDG-letter to which they are mapped and underscored. 

42 REM Inverse characters are tran- 
scribed in bold-face. 

44 REM Sinclair Block Graphics 


Chr 128 to ርክከዮቹ 143 are 
to Chr 64, In some cases the 
used as a guide. 
46 REM 
print correctly if the printer 
4&8 REM 
scribed in all cases as 


represented by Chr? 49 through 
context of the listing must be 


The British Found sign will 
is get to use Uk ASCII, 
The copyright symbol is tran- 


ፉ + 


a lower-case 'c', 


20 REM Load McBrine Priter Driver 
we CLEAR 64299: CLEAR 
9o RANDOMIZE USR 100s LOAD "mbpd. Cl" CODE 
60 RANDOMIZE USR 64300 
65 CLS : PRINT AT 11,65"Drcaft or Final Copy? "s: INPUT "Select 
D or F "sre 
70 IF r£z"F" OR m£z"£" THEN QUT 127,27: OUT 127,711 FRINT AT 1 
Sali Final Copy": FAUSE 200: REM Set printer to double-strike m 
ode 
BO IF rsszs"D'" OR rdXm"dg'" THEN OUT 127,27: QUT 127,721 PRINT AT 1 
Ta 148 "Draft Copy": FAUSE 200: REM Set printer to normal mode 
55 IF rgs p" OR rgs pe OR eee"! OR egs ¢" THEN GO TO 100 
90 BEEF .3,10: GO TO 635 
Qu REM 
100 REM Program Details 
110 DIM n#(6,40)4 LET window s 6000 
400 GO SUB windows PRINT ''''"PFrogrnam Name?” 
410 INFUT ጠቓ (1) 
420 PRINT “‘'m# ide oo, "OR?" 


A40 PAUSE Of IF INKEYXz"Y" OR INKEY#="y" THEN GO TO =ዕር) 
240 GO TO 200 
200 GO SUR windows PRINT ''''"Frogramerc's Name?" 
S210 INFUT n*02) 
220 PRINT ''n$£2)sg''gs"Ogp" 
AO PAUSE Os IF INKEYXu"Y" OR INEEYGEmz"y" THEN GO TO 400 
440 GO TO J00 
400 GO SUB window: PRINT ''''"Source"?' 
410 INPUT ጠቓ (2) 
420 PRINT ''ከቓ(=)1 oe "OR?" 
TO PAUSE O: IF INKEY#="Y" OR INKEY#="y" THEN GO TO $00 
440 GO TO 400 
YOO GO SUB windows PRINT ''''"kWeyed by?" 
310 INFUT n*€(4) 
GeO PRINT “me C4) 和 oo "OR?" 
5=2ሪጋ PAUSE os IF INKEY#="Y" OR INKEY#2"y" THEN GO TO 600 
40 20 TO 500 
6400 GO SUB windows PRINT ''''"Date'?' 
610 INFUT m# CS) 
620 PRINT ''"ከቓ(=) 1 ' '፤ "OK?" 
630 FAUSE O: IF INKEYXz"Y" OR INKEY#="y" THEN GO TO 700 
640 GO TO 600 
700 GO SUB windows PRINT ''''"Note?" 
710 INPUT ከቁ (ላሬ) 
720 PRINT ‘'m# (6) 9° oe "ORY! 
20 PAUSE Os IF INKEYd-z"Y" OR TNRKEY#="y" THEN ነ GO SUB window: 
PRINT ''''"Printing!'": GO TO 1000 
740 GO TO 700 
1000 REM Send Data To Printer 
1010 LFRINT "Frogram Name: "sn$(Cl) 
10:220 LFRINT "FPFrogramer's Name: "srk C2) 
10:0 LPRINT "Source: "an (2) 
1040 LPRINT "Keyed by: "srk (ቶን 
1050 LPRINT "Date Keyed: "ene (3) 
1060 LFRINT "Note: "xn*(CÓ) 
1070 LPRINT '''''' 
1080 FOR asi TO 29: LPRINT " "ss NEXT as: LPRINT "PROGRAM LISTING 
tt 
LO9O LPRINT ''' 
2000 REM Fetch Program to be Listed 
2910 CLS : FRINT ''''"Name of Program to be LListed? " 
2020 INFUT "Name? "igg: PRINT ' '፳ቓ፤ os "OK?" 
2030 PAUSE Os IF INKEY£z"Y" OR INKEY#="y" THEN GO TO 2050 
040 50 TO 2000 
A050 RANDOMIZE USR 100; LOAD z# 
000 REM Initialize & Introduce 
SOLO LET window = 6000: GO SUB window 
3020 PRINT FAFER 1s INK GAT 2,103 "McBrine Style" 
WOSO PRINT PAPER 18 INE GAT 4,6: "BASIC LLIST'ing Set-Up" 
29040 PRINT '''"The object of this program is to llist as accur 


ately as 
zed Epson 
uired biblio- 


possible any Sinclair BASIC pro-gram to a full-si 
compatible printer and also in] sure that the req 
graphic information is included with the listing. 


JOSO PRINT #0," Hit any key "s PAUSE O: GO SUE 
window 


2060 REM Check the printer 

39070 FRINT '''"BHefore continuing check the followings " 

S080 PRINT ''"The printer power is on and the printer itself is 
online. The print head ise homed to the upper left-hand co 

ener of the page," 

239100 FRINT #0," Hit any key "s PAUSE Os GO SUB 
window 


54406) REM Check that the program and program info. is at hand 
23120 PRINT '''"Do you have the following info. handy?" 

S130 PRINT ''"The name of the program to be llisted as stated 
on the disc?"'"The full program name?" "The programmer ’s name?" "' 
"The program keyer’s name?" 

$9140 FRINT "The date the program was keyed?'"'"Notes?" 


SLO PRINT #03" Hit any key "s PAUSE ©: GO SUE 
window 

W160 PRINT '''"When the program continues you will be prompted 

for the info. you are required to supply. If you do not hav 
e the info. leave a line of underscores so it may be filled 
in by hand." 

29170 PRINT '"When you are prompted for the name of the program 
to retrieve from disc give it in its full LAREEN form. When t 
he program begins to load hold down the break keys to preve 
nt the program from autorunning., " 

Sigo PRINT #0," Hit any key "s FAUSE ©: GO SUB 
window 

4190 PRINT '''"Once the BASIC program has been loaded, LIST the 
program to insure the the program will listfrom the beginnin 
ጋ and then typethe command LLIST." 

መ= ጋ ህን PRINT ''"When LL. IST'ing has completed Wee the printer's 
form feed Command to advance to the next  page."'"'"The main 
program begins upon thenext keypress, " 

Caso PRINT #0," Hit any key "* PAUSE O: GO SUB 
window 


Sgoo GO TO 1 

$999 STOrF 

6000 REM Window Sub-Routine 

6010 BORDER il: FAFER 6: INE Os: CLS 

6080 RETURN 

89299 STOP 

9000 REM Save Routine 

9010 CLEAR : RANDOMIZE USR 100: SAVE "Lister. Bi" LINE 5000: RAND 
OMIZE USR 100: SAVE "mbpd.Ci"CODE 64300,1235 


10 CLEAR 63525: CLEAR : PRINT USR 100: OFEN #4,"DD": PRINT #4: OPEN #2, "LF" 

20 BORDER 7: FAFER 7: INE Os CLS 

20 FRINT AT 3,0; NMI-SAVE LOADER MENL" 

Zu GU SUB 100 

40 PRINT ''"SELECT FROM 1 TO 5" 

SO INFUT "MAKE SELECTION "sA# 

60 IF ቅ<="ዕ”" OR Afte" THEM GO TO SO 

70 PRINT #4: LOAD "NMI-S'"4+424+", CM" CODE 

ao STOF 

100 RESTORE : PRINT 

110 FOR ፅ=1 TO 5 

120 READ Af: FRINT AF 

L370 NEXT à: PRINT : RETURN 

140 DATA "1) Daytimes (51)","2) Keyboard Scan", CI) Empty","4) Empty". "m Empty" 
9000 CLEAR 28000: CLEAR : FRINT USR 102: RUN 


Ata 1 .-ጋ1 ድኒርቪፈቲ.-.ጨ fe 


tore Aha LARKIN DOS. 


"T D | 
—— ፦ሁኦ ; r ት q^ ; 


Frogram Names 
Frogramear '%ፄ Names 
SOur ces 


Disk Menu CAUTOST. B1] 
George Chambers 
Original Frogram 


Keyed bys George Chambers 
Date keyed: Toronto, Ontario, 1988 
Notes 
PROGRAM LISTING 
1 REM DISK MENU 
GO TO 4 
>= CLEAR 30000: BORDER Os PAPER Os INE Os CLS : RANDOMIZE USR 
4 (3:2 
4 PRINT USR 100: OFEN #ዱ,ን'"ፀዉፀ"” 
~ CLEAR 695339: BORDER 15 INK 7: PAPER Os ርኪ: 
6 PRINT AT 1,23 FAFER 24" DISK UTILITIES MENU a 
S PONE 25ሬ658,8፣ LET x-16 
9 RESTORE 100 
10 FOR m=1 TO x 
20 READ afi: PRINT " "GCHRE (metod) n ፦ "sa 
30 NEXT n 
44 INK 4 
ow PLOT INK 440,0: DRAW 295,0: DRAW 0,175: DRAW -2595,0: DRAW © 
,“ጊ /5 FLOT 1,1: DRAW 253,0: DRAW 0,173: DRAW —-252,0: DRAW Q,-—17 
As INK 7 
AG PLOT 9,20: DRAW 227,0: DRAW O,132: DRAW —-237,0s DRAW 0,325 
30 PRINT AT 20,1; FAPER ma” "s FLASH Is "Frese A to "CHR 
t tó)" only"s FLASH Os" d 
70 LET mës] NKEYS 
BO IF N£z"Aà" OR ከቅ >ርዘዛክቅ CCX+1)4+64) THEN GO TO 70 
85 BORDER Os: PAPER Os: INK 7: CLS 
9$0 GO TO (CODE n#-64) #200 
190 DATA "Disk Doctor”, "Disk copy(1 or 2 Drives)", "Rename a Frog 


m", "Format a Disk”. "Repair a Disk 
File", "Disk 


Directory", "Recover an Erased 


Label (from Cat)", "Improved Disk Label-maker"'","Copy 


a program”, "Erase Files from ል Disk" 


110 
ctor 
160 
200 
400 
GDC 
Be) 
1000 
1:200 
1400 
1600 


DATA 
instructions"," 
GO TO 1 

PRINT #43 
PRINT #4: 
PRINT #4: 
FRINT #4: 
PRINT #43 
PRINT #4: 
PRINT #4; 
PRINT #4: 


"Program Loader", "Header Reader", "Program details","Do 
"Return to RAMdisk Menu" 


LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
LOAD 
I. FD 


"doctor.Bli". 
"copylia.RBi":s 
"rename, RI'N 
"FORMAT. BLY . 
"repair. Bi". 
"recoave., BL" 、， 
"labels. Bi" 
"label2.Bi1"^ 


ኤሪ 


1800 PRINT #4: LOAD “Move. Bi". 

SOOO PRINT #4: LOAD "erase.Bi'. 

AAQO PRINT #43 LORD "Loader. BINS 

2400 PRINT #4: LOAD "reader. BIY, 

20090 GO SUB Sooo 

2610 PRINT #4: PRINT "help. CT" 

2620 FRINT CHR# 2:2: PRINT "End of File...Fresse any key": PAUSE © 
CLS : GO TO 1 

2800 GO SUB Soo0 

2910 PRINT #4: PRINT "doctoi.CT" 

2920 PRINT CHR# 2g: PRINT "End of File... Press any key": PAUSE © 
:GO TO 1 

4000 GO TO 1 

2200 FRINT #4: GO TO 4: FRINT #4: NEW 

$000 INE Os FAFER 7: BORDER 7: CLS 

2010 PRINT #4: LOAD "“tagwid. Ci" CODE 

S020 RANDOMIZE WSR 642002 FRINT CHRE Xy 

BOZO RETURN 

8999 STOF 

9000 CLS s: LET od=4: PRINT AT 15,93 "SAVE ROUTINE’ ’" Press ""D'" 
key to save to disk,"''" oe ""T"" key to gave to tape": FAUS 
EO 

9010 IF INKEYS€X-z"t" OR INKEYGSXz"UT" THEN LET odzs2 

9020 FRINT toD SAVE "AQUTOST,Bi" LINE 1 


Program Name: Copy A Program From Disk 
Frogrcamer's Names Larry Kenny: George Chambers 


Bouree Original Frogram 

keyed bys the authors 

Date keyed: Navan & Scarborough, Ontario, 1988 
Not ex Larkern whi laity 


PROGRAM LISTING 


10 CLS 8 PRINT : PRINT "= LARKEN FILE MOVE and RENAME -" 

20 RANDOMIZE USR 100: OPEN &4,"dd" 

SO: CIRCLE 48,110,10 

40 PLOT 18,80: DRAW 0,60: DRAW 60,0: DRAW O,-60: DRAW -60,0 

SO PLOT 46,84: PRINT #4: DRAW 5,14,2 

60 PRINT #4: CIRCLE 58, 100,148 PRINT #4: CIRCLE 28,110,142 PRINT 
#4: CIRCLE 28,90, 14 

70 PLOT 18,120: PRINT #4: DRAW 5S,6,1: PLOT 18,121: PRINT #4: D 
RAW 4,4,0 

75 PRINT AT 5,2; LARKEN" 

100 PRINT AT 10,16;:"Select One" 


110 FRINT AT 14,0;"'1"' Single File Copy for 1 or = Dis 
k Drives" 

120 PRINT AT 17,0$4""'2' Rename a File on Disk" 

120 PRINT AT 19,0s;&"' 3° Save this program to Disk" 

140 PRINT AT 21,059" '4' Catalog Disks" 


190 INPUT "Enter 1, 2, = or 4 "s LINE af 

200 IF ate"1" THEN GO TO 900 

210 IF ልቹ='"'=2" THEN GO TO 8000 

215 [TF afe" THEN GO TO 9500 

2108 IF age"4" THEN GO TO FOO 

220) GO TO 190 

200 CLS : INPUT "Drive O 1 2 or 3 "sar IF ል>= THEN GO TO 200; 
SOS INFUT "Search for string "xs LINE ልቓ 

310 PRINT #4: GO TO a: PRINT #4: CAT ልቻ,5 INFUT "Another Catalo 
g ?7 "s LINE ati IF ልቐ="ሃ” THEN GO TO 300 

So RUN 

950 LET start=1O00 

1000 DIM fXi9): GO SUB 7000: GO SUB 7500: PRINT AT 10,0; "Enter N 
ame of File to be Copied" 

1005 INPUT "File Name "5 LINE Of,,,"Drive # (0-4) "sÜüdrv: LE 
T fEng, 

1010 FOR f-1 TO 9: PORE Onam,CODE ተጅ (ተ)ሄ LET OnamsOnam-tis NEXT f 
1100 GO SUB 7500: PRINT AT 10,2: "Rename file or Same Name T" 
1102 INPUT "New Name (or Ret) "i LINE n£$,,,"Destination Drive & 
"s Ddrv 

1110 IF LEN n£ous THEM LET fxXens$ 

11320 FOR asl TO 9: FORE Dnam,CODE f£(a)s LET DnamesDnamti: NEXT a 


11406 GO SUB 7500: PRINT AT 10,0; "Copying "so8#sAT 19,183" on Driv 

e "s+ Odry 

1150 PRINT AT 12,14, "TQ" 

1160 PRINT AT 14,8543" on Drive "sDdrv 

1200 PRINT #4: GO TO Odev: LET rtsUSkR indir: IF rts»0 THEN GO TO 
(t 

2000, LET rtzsUSR Ldis IF rtz»0 THEN GO TO rt 

2010 LET Tlan=FPEER 34002: LET passi: IF Tlens (PEER NDbcg)-71 THEN 
LET Fasc 

2100 GO SUB DesDrv 

SAQU LET rtsUSR Svnam: IF rts» THEN GO TO rt 

eO LET ዮቲ።=[ዚ;5ጸ Svdatar IF rtz»0 THEN GO TO rt 

2400 IF pass=1 THEN GO TO 5000 

2000 GO SUB OrgDrvs LET rteUSR Ld2: IF rts»0 THEN GO TO rt 

2700 GO SUE DesDrvs LET rtsUSk Svdata:s IF ዮቲ< >ኃዕዌ THEN GO TO rt 
SOOO LET rtzsUSR Svend: IF ዮቲ< ታን THEN GO TO rt 

$0890 PRINT AT 16,6 File Copied": BEEP .1,10: BEEF .1,10: PAUSE 
e008 GO TO 1 

2990 REM 一 一 Error Megs “፦ 

6000 FRINT FLASH ts "File Not Found": GO TO 6500 

6010 PRINT FLASH lg pisk Full": GO TO 6500 

4020 FRINT FLASH 114 "Data Error": GO TO ሬ50ዐሀ 

6030 PRINT FLASH te" Rename Error: GO TO 6300 

6500 BEEF ,5,55፪ BEEF aS, lr PAUSE Soo: GO ፐር 1 

7000 LET Mem=34800: LET Owka=347003s LET Dwka=247560: LET Onam=246 
OO: LET Dnam=24650 

7100 LET indir=S32000: LET Ldl=S2003: LET Ld2zz2006: LET Svnam=S32 
009: LET Svdatasz2012: LET Svend=22015: LET Renam=32018 


7450 LET OrgDrvms7300:8 LET DesDrvs7400: LET Nbeg=240032 LET Beize 
፡፡ 5 OO ` 


7160 REM DDen Bsizg9@geSi20 Nbcs=7 SDen EBeizes2050 Nbas=14 
7170 FORE NDc&,7: PRINT #4: FORE Beige, S120 

7ፎዕዕ RETURN 

7=ዕዕ IF Odrvz»Ddgkv THEN FRINT #4: GO TO Odrvs RETURN 

FSCO INFUT "Insert Source Disk": LINE af: RETURN 

7400 IF Odeve #ኃህሀ)8ዮሃ THEN PRINT #4: GO TO Ddevi RETURN 

7420 INFUT "Insert Destination Disk" LINE af: RETURN 
7900 CLS 8 PRINT "== LAREEN File Move Program ““”ሄ PRINT 


7600 PRINT " Drives don't have to be the same type. You can c 
opy from DS to SS or OAD to DS etc. The head speed of either disk 
should not be faster than the speed of either drive though. 


7990 RETURN 


BOC REM == Rename -- 
Boos LET ermnorst3o00 


B010 DIM ተቆ(ሣን፪ GO SUB 7000: CLS ፪ PRINT "== LARKEN File RENAME 
Fragram --"s PRINT s PRINT "When Renaming keep the correct ext 
angian and syntax of the file name": PRINT AT 10,6: "Enter Name o 
f File to be Renamed" 

BOLS INFUT "File Name "s LINE oFf,,,"Drive # (0-4) 9 135 LET $ 
Fagg: PRINT #4: GO TO D 

gQo4oó FOR ቶ=3 TO 9: FOKE Onam, CODE fÆ(f);s LET Onam=Onamtis NEXT ተ 
Goo PRINT AT 10,04," Enter New File Name "se INFUT "Ne 
w Name "sf 


8110 
53150) 


| lO "on 


BIOD 
Oy 
3200 
qioQ 
£309 09 0 
9000 
key 
E ርነ 
JOLO 
POO 
9030 
90410 
9700 


BEEF 


FOR f=1 TO 9: 


ሯርፌ8 ከ8 


POKE Dnam,CODE ተቐቹ‹ቶን፪፳ LET DnamsDnam-tl: 
PRINT AT 6,123 "RENAMING"g AT &B,4s0X*," TO 
Drive "iD 

INFUT "Press any key a 
(44,0: GO TO error 
PRINT AT 20,849 LET rtzUsm Renams 
BEEF .1,10: BEEF ,.1,20»2 FAUSE 100: 
STOF 

CLS 8 LET ዕ:-።ዱነኒ 
to gave to disk,"''" 


NEXT f 
"SHAT 10 
LINE af: IF ልቓ="ካ" THEN BEEF .1,1 
IF rtc»0 THEN GO TO rt 

GO TO 1 


PRINT AT 15,9; "SAVE ROUTINE!’ '" 
Or tt "D" H 


unpun 
FAUS 


Fr emt 
key to save to tape": 


TF ፲ ክዚደኗ8ፎሃች፡፡"ቲ” 
PRINT #ocls 
PRINT dod: 
STOF 

RANDOMIZE USR 100: 


OR INKEYGSUTU THEN LET ods2 
SAVE "Move.Bi" LINE 9700 

SAVE "Move .CI'"CODE 33000,1000 
LOAD ACU CODE 2000: 


"Move RUN 


Brocramn Namet Larken Disk Program Header Reader 
Programmer's Names George Chambers 


SS CULAR cet Original Fragram 

Keyed bys George Chambers 

Date keyed Scarborough, Ontario, 1989 
Notes Larkan utility 


PROGRAM LISTING 


190 REM File Reader vi. Qg for the LARKEN system 

110 REM By G. Chambers 14 Richome Court 
Scarborough, Ont. CANADA Mik 2Y1 

120 REM Use to obtain header information from a disk 

120 REM Data statements contain Drive Control Code, 

140 REM For use with the DSF 400 system of 5090 bytes/track 


using a DD drive i.e.80 tracks 

150 RANDOMIZE USR TOO: OPEM #4, "dd": PRINT #4: OPEN #23, "LP" 

159 PRINT #4: FORE 16090,21: PRINT #4: POKE 16094,10: LFRINT 
170 RESTORE 210 

180 FOR ከ=ሃልኪኒ "63000" TO VAL "63077" 

190 READ a: FORE nia 

200 NEXT n 

210 DATA 193,43, 246,193,72, 346,125, 104, 246 243 

220 DATA 2O05,98,9,201 ,58,100,0,251,291, 205 

220 DATA 33,246,58,176,92,90,29,22,205,126 

240 DATA 9,205 ,122,0, 553,112, 32,17,156,224 

220 DATA 1,90,20,237,176,195, 38, 246, 205,33 

260 DATA 246,58,176,92,50,29,32,322,156, 224 

279 DATA 17,112,32,1,0,20,2357,176,205, 150 

dO DATA 0,205,126,0,:205,1:20,0,195, 558,246 

290 DIM «# (448) 

200 DIM 16100) 

410 DIM d# (100,10) 

ae LET tracmemx728: LET loadbut 62000 

AGO LET poss LET pasir LET obzs2: LET ዕር=55 LET od=4: LET o@=S: 
LET ofzsés: LET og=7: LET foo: LET z200 

SAO LET nameso76B8g: LET butfersS 7500 

390 BORDER oa: FAFER oa: CLS 

260 PRINT AT ob,ogs INK obs PFAFER ofg"LAREEN DISK UTILITY"; FAF 
ER was’ TAB of; FAFER of: "Program Header Reader": FAFER ዕልህ ነ TAB 
og: PAPER ofa" By George Chambers" 

A470 INE Oc: FLOT of VAL "108": DRAW oo,VAL "62": DRAW VAL "255" 
yO! DRAW 00, YAL "+62": DRAW VAL. "—-295",o00 


A80 INK of: PLOT VAL "G'",VAL "114": DRAW oo, YAL "SO": DRAW VAL 
"Aeg",oo0: DRAW oo,VAL. "SO": DRAW VAL "erza" oo: INK og 

282 INPUT "Drive ጁ”ሮ (ዕ-ዱ) "aides PRINT #4: GO TO dr 

=3= POKE 27658,0: PRINT ''''''s"Printout wanted? Y/N": FAUSE oo 
489095 IF j#e@"y" THEN LET 2=ጋል፣ PRINT ''"Large or Small Printer? L 
/8"1 PAUSE oo 

3207 LET chzoc: IF INKEYSX:z"I1" THEN LET chzoe 

a90 INFUT ''"Enter Name of Disk” gë 


- 
m 
一 
፪ 
m 
< 
" 
< 
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295 FRINT '''"ም]ልርፎ disk to be read in Drive "sde'" nae th 
en Press a key"': FAUSE oo 
400 REM Picking pom names from buffer (Track ©) 


410 PORE trac,o00: RANDOMIZE USA loadbuf 

420 PRINT AT ወቶ ተጩር ,መ34ርቓቕ( TO 415) 

430 PRINT AT 10 ,6]፪8 FLASH pa: "Scanning Directory track's FLASH 
OC 

440 FOR n= oa TO 100 

450 LET en 

460 IF FEEK (nametoc)=oo THEN LET esn-oas LET ከ=13();)5 GO TO S30 
470 IF PEEK (nametoa) #254 THEN LET namesname-54s GO TO 460 

480 FOR mapa TO ግ 

ADO LIST dE£€(in,m)sCHRE PERE (namaedtm? 

Soo NEXT m 

5410 LET l(n)ozPFEERK (nametil) 

wa LET namesnamees4 

wow NEXT n 

540 CLS 8 PRINT " DISE DATOG-HEADER READER .: - ፦ ሥ መ” መ mmm mme 


Seo PRINT “TRACK NAME START LENGTH ST." 

260 IF zaga THEN PRINT #chs Disk Names "sge: LPRINT ' ፡ TRACK NAM 
民 START LENGTH ST.” 

ኃ/ህ FRINT *ch 

290 PRINT AT 210e," (M returns to menu)": PRINT AT ocon 
620 FOR tega TO e: 

620 IF PEER 22689< oq THEN 20 TO 820 

640 REM IF IN 1600 THEN RANDOMIZE USR curtrac 

650 FORE ቲዮልርፎር ንን (t): RANDOMIZE USR loadbuf 

670 IF PEEKE (bufferroa)<>oo THEN 

6800 IF PEEK (b*uffer-c-oalsoo THEN GO TO 800 

635 PRINT PEER (buffer-t-oali TAB ocs 

690 FOR a«s(buffer-ob) TO (ibuffer-10) 

700 PRINT CHRE FEER as 

710 NEXT a 

AQ LET ዌሄቲልዮቲ=ርዕርሄ FÜR a=(buffer+ob) TO (bufferti0): IF PEEK asd 
AND (PEER (Catoa)m67 OR PEEK Catoad=685) THEN LET start=oa 
7:320 NEXT a 

740 PRINT TAB IA FEER (ክክህተተፎዮየተ+ተ1:2) -256*FEEK (buffert-13): 
720 PRINT TAB 215 ”ፎፎዞ5ጆ (buffertar) V"SS6exPEERK (ከ ህተቶ ቶ ፎዮ ተ:222) s 
760 LET ኪጀቺክ፡።ዮርፒፎኮክዞ (Cbuffer+17) ተ ረ:መ5ኀዕ*ኮፎፎክ8 (ከክህተቶይዮ +1(013) toa 

770 IF lenson THEN LET lens] 

780 IF setartzsoo THEN FRINT TAB 28:]1en: GO TO 800 

790 PRINT 

BOO IF INKEYXz'm" OR INEKEYS$z"M" THEN GO TO 2000 

310 NEXT t 


9820 
gii 
340 
2351 
BHL 
370 
aeo 
FOC 
ml 


910 


E TURN 


1010 


ess ENTER for 


SE ር) 
10:20 
^000 
BOC 
BIDS 
DOOL 
key 
EO 
9010 
90:20 


FRINT TAR od; INK obsi"Laset file on the disk"s LET foa 
IF 200 THEN PRINT AT 19,0a;" Press any key to clear screen 


THEN GO TO 840 

IF fapa THEN GO TO 
THEN (GO TO 2000 
PRINT AT oc,oo 


zaoo AND INKEY ge"! 
IF zepa THEN GO SUB 9o0t: 
TF OR INKEY ds "ዘ" 
PRINT AT od omet: AT og, ooge: 
GO TO 630 
FOR n=ocl 


IF 
1000 


TO 17: IF SCREEN? (n,oo)-" " THEN LET ስ=175 LET i= 


FOR i200 TO Sls PRINT Schi SCREEN£ (midas NEXT is NEXT me FR 


THEN CLS s 
Wan fee RAM i ak 


OR INREY#< M” 
ሦኮሦዮፎ85 


IF INEEYxX«z»"m" 
next recorg"'''" 


PRINT AT og,oas "Fr 
menus FAW 


THEN RUN 
42 FRINT #4: NEW 
BORDER 7s OLS ከ፻ 


IF INEEYXZ»"p" 

PRINT #43 GO TQ 
INK Or PAPER 7: 
STOF 

CLS : LET ጩ:ጩ=ዱኒ 
to save to disk, 


[..1 53 


non D U in 
PAUS 


PRINT AT 15,9: "SAVE ROUTINE"''" Press 
ere ጋዮ ""T"" key to gave to tape': 


THEN LET 
LINE 100 


IF INKEYSzs"t" OR INEEYdXs"T" odsz 


PRINT sod: SAVE "reader. Bi" 


Frrogram Names: 
Frogrecamer % Names 


Sources: 
Keyed bys 


Date keyed: 
Notes 


Rename a Program 

George Chambers 

Original Program 

George Chambers 
Scarborough, Ontario, 1988 
Larkean utility Crename.&1] 


PROGRAM LISTING 


1 GO TO 15 


ጊር) 


RBO 


"rad u 


9000 

key 
5 oO 
9010 
FORO 


RANDOMIZE USR 


CLS : 


RANDOMIZE USR 100: 


ranr 
Aie tees! 


FORE 

INFUT 
PRINT 
INFUT 


to 


SAVE "rename. Bi" 

PAPER 24" Rename a Program 
OFEN #4, "dd" 

JB., O: DIM af(9): DIM b¥(9) 

"Drive #¢0—4) "drs PRINT "Drive #" sere" 
#4: GO TO des PRINT #4: CAT "", 

"Old name (in full) "sae 

"Now enter new name "sb 

PRINT AT 17,0; "Prese a key to start rename ": 
"Renaming in progresse" 

44: MOVE a¥,b# 

PRINT AT 10,2:"Frogram name has been changed" ' "from 


1001 
PRINT TAR 71 


te ¢ 7 


engaged" 


PAUSE o 


"shg 

90 POKE 27658, ‹)፣ 
IF INKEY#="" 

IF ፲ከክጾ85አሃይቆ፡፡"ሃ" 


PRINT AT 16,3: "Change another name"? 
THEN GO TO 90 
THEN (GO TO 15 


(y/n)" 


PRINT #4: GO TO 4: FRINT #4: NEW 

STOF 

CLS 8 LET odzs4s PRINT AT 15,9: "GAVE ROUTINE"''" Press "Up 
to save to disk,"''" orc ""T"" key to save to tape": PAUS 


IF INKEV Sat! 


PRINT 


QR TNE Yge T” 
SAVE "rename. Ri" 


THEN LET odzz 


od: WINE 18 


